home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Emulatoren / C64-Diskmagz / mailma17 / MM17A.D64 / OSTERHASE .prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2000-04-12  |  1.8 KB  |  64 lines
  1. 1 POKE 53280,0:POKE 53281,0
  2. 5 PRINT"[147]"
  3. 10 PRINT"
  4. 20 [153]"                 FOR(null)(null) (null)(null)
  5. 30 PRINT"                [170] [129]O [146]O [180]
  6. 40 [153]"                DEFABS FOR (null) WAIT DEFINT
  7. 50 PRINT"                 [152]==[194][146][152]==
  8. 60 [153]"                FOR (null)LEN LENRIGHT$
  9. 70 PRINT"                 [194][169] [223][146][194]
  10. 80 [153]"                 PEEK CLOSE WAITPEEK
  11. 90 PRINT"                 [150][214][129]   [146][150][214]
  12. 100 [153]"                  FOR WAITOFOR WAIT
  13. 110 PRINT"                  [150][213][213][201]
  14. 120 [153]"                  MID$MID$(null)
  15. 130 PRINT"                  [129][194] [194]
  16. 140 [153]"                  PEEK PEEK
  17. 150 PRINT"                [150][185][175][129][194] [194][150][175][185]
  18. 160 [153]
  19. 170 [153]"       LISTDER OSTERHASE HAT DICKE EIER!
  20. 180 PRINT"       ER MUSS MAL WIEDER ...
  21. 199 [129] A [178]0[164]20
  22. 200 [129] X[178]0[164]50:[130]
  23. 210 [153]"                  DEFOROR^
  24. 220 PRINT"                  [173][173][189]
  25. 230 [153]"                  DEF(null)RIGHT$RIGHT$
  26. 240 PRINT"                  [202][203][203]
  27. 260 [129] X[178]0[164]50:[130]
  28. 280 [130]
  29. 390 [129] A [178]0 [164]1000:[130]
  30. 400 [153]"       SPC(SPC(SPC( SPC(  SPC(SPC( SPC(  SPC( SPC(SPC(SPC( SPC(  SPC(  SPC(
  31. 410 PRINT"       [166]   [166] [166]   [166] [166]  [166]   [166][166] [166]  [166]
  32. 420 [153]"       SPC(SPC(  SPC( SPC(   SPC(SPC(   SPC(SPC(  SPC( SPC(SPC(  SPC(
  33. 430 PRINT"       [166]   [166] [166]   [166] [166]  [166]   [166]  [166]
  34. 440 [153]"       SPC(   SPC(  SPC(SPC( SPC(  SPC( SPC(SPC(SPC( SPC(  SPC(  SPC(
  35. 500 FORI=1TO1500:NEXTI:PRINT"[147]"
  36. 510 PRINT"G":FORI=1TO300:NEXTI:PRINT"[145]R"
  37. 511 FORI=1TO300:NEXTI:PRINT"[145]E"
  38. 512 FORI=1TO300:NEXTI:PRINT"[145]E"
  39. 514 FORI=1TO300:NEXTI:PRINT"[145]T"
  40. 515 FORI=1TO300:NEXTI:PRINT"[145]Z"
  41. 516 FORI=1TO300:NEXTI:PRINT"[145]:"
  42. 520 PRINT"[147]":PRINT"[206][205][206][205]ETAL [205][206]OTZE"
  43. 521 FORI=1TO500:NEXTI
  44. 530 PRINT"[147][206][205]CCEPT PARTY POSSE"
  45. 531 FORI=1TO500:NEXTI
  46. 540 PRINT"[147]BRUCHWURST"
  47. 541 FORI=1TO500:NEXTI
  48. 542 PRINT"[147]BRUCHWURST"
  49. 543 PRINT"[147][159]BRUCHWURST"
  50. 544 PRINT"[147]BRUCHWURST"
  51. 547 FORI=1TO500:NEXTI
  52. 550 PRINT"[147][206]"
  53. 551 PRINT"[205]TEELER"
  54. 552 PRINT"[206]"
  55. 560 FORI=1TO500:NEXTI
  56. 600 PRINT"[147]"
  57. 610 PRINT"[147]
  58. 620 [153]"                SPC(DEFSPC(SPC( LISTSPC(  SYSSPC( SPC(SPC(
  59. 630 PRINT"                [150][166]   [155][166][166] [158][166] [166] [166]
  60. 640 [153]"                LISTSPC(SPC( SYS SPC( SPC(SPC( SPC( SPC(
  61. 650 PRINT"                [158][166]   [166]  [166] [166] [166]
  62. 660 [153]"                SPC(SPC(SPC( SPC(  SPC( SPC(SPC(
  63. 670 GOTO 670
  64.